<% alls = request("title") category = Left(alls, 5) directory = replace(category, "_", "/") gwon = "0" & Right(alls, 2) seq = request("seq") ' 인터벌 pagenum = request("pagenum") '파일명 넣기 시작 If pagenum = "" Then jpgnum1 = "001" jpgnum2 = "002" pagenum = 1 nextpage = 2 prevpage = 1 Else jpgnum1 = (pagenum * 2) - 1 If jpgnum1 < 10 Then jpgnum1 = "00" & jpgnum1 ElseIf jpgnum1 < 100 Then jpgnum1 = "0" & jpgnum1 End If jpgnum2 = (pagenum * 2) If jpgnum2 < 10 Then jpgnum2 = "00" & jpgnum2 ElseIf jpgnum2 < 100 Then jpgnum2 = "0" & jpgnum2 End If nextpage = pagenum + 1 prevpage = pagenum - 1 End If '파일명 넣기 끝 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons7.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT count(*) as cnt From FREE_WEBTOON where category = '" & category & "'" set rs=DbCon.Execute(sql) postcount = CInt(rs("cnt")) Session("postcount") = postcount Set DbRec=Server.CreateObject("ADODB.RecordSet") DbRec.CursorType = 1 DbRec.Open "SELECT booknum, page FROM FREE_WEBTOON where (category = '" & category & "' AND booknum = '" & gwon & "')",DbCon booknum = DbRec("booknum") maxpage = DbRec("page") / 2 If Right(maxpage,2) = ".5" Then maxpage = maxpage + 0.5 End If If (seq = "" OR seq=0) Then seq = 0 Else %> <% End If If pagenum = 0 Then %> "> <% ElseIf maxpage = pagenum - 1 Then %> <% response.redirect "nview_in.htm?title=" & category & "_" & DbRec("booknum") & "&pagenum=" & maxpage ElseIf maxpage < pagenum - 1 Then %> <% Else %>
&pagenum=<%=prevpage%>&seq=<%=seq%>&maxpage=<%=maxpage%>&booknum=<%=booknum%>" onMouseOver="window.status='';return true;" onMouseOut="window.status='';"> &pagenum=<%=nextpage%>&seq=<%=seq%>&maxpage=<%=maxpage%>&booknum=<%=booknum%>" onMouseOver="window.status='';return true;" onMouseOut="window.status='';">
&seq=<%=seq%>&maxpage=<%=maxpage%>&booknum=<%=DbRec("booknum")%>"> / <%=maxpage%>  
','','width=1130,height=780');" onMouseOver="window.status='';return true;" onMouseOut="window.status='';">
<% If (directory = "43/01" AND jpgnum1 = "001") Then booknum2 = booknum + 1 - 1 jpgnum1 = "깡다구1부" & booknum2 End If If (directory = "43/02" AND jpgnum1 = "001") Then booknum2 = booknum + 1 - 1 jpgnum1 = "깡다구2부" & booknum2 End If %>
&pagenum=<%=prevpage%>&seq=<%=seq%>&maxpage=<%=maxpage%>&booknum=<%=booknum%>" onMouseOver="window.status='';return true;" onMouseOut="window.status='';"> &pagenum=<%=nextpage%>&seq=<%=seq%>&maxpage=<%=maxpage%>&booknum=<%=booknum%>" onMouseOver="window.status='';return true;" onMouseOut="window.status='';">/<%=jpgnum2%>.jpg" width="415" height="600" border=0> <% If (Left(request("title"),5) = "13_01" Or Left(request("title"),5) = "13_02" Or Left(request("title"),5) = "14_02" Or Left(request("title"),5) = "52_02" Or Left(request("title"),5) = "53_02" Or Left(request("title"),5) = "58_01" Or Left(request("title"),5) = "58_02" Or Left(request("title"),5) = "58_03") Then %> <% Else %> <% End If %>
<% DbRec.Close Set DbRec = Nothing End If %>